home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / MATHS / RLAB / RLAB125.ZIP / !RLaB / toolbox / jordan < prev    next >
Text File  |  1994-06-26  |  470b  |  19 lines
  1. //-------------------------------------------------------------------//
  2.  
  3. // Synopsis:    Jordan block matrix.
  4.  
  5. // Syntax:      J = jordan ( N , LAMBDA )
  6.  
  7. // Description:
  8.  
  9. //      J is the N-by-N Jordan block with eigenvalue LAMBDA. 
  10. //      LAMBDA = 1 is the default.
  11.  
  12. //-------------------------------------------------------------------//
  13.  
  14. jordan = function ( n , lambda )
  15. {
  16.   if(!exist (lambda)) { lambda = 1; }
  17.   return ( lambda*eye(n,n) + diag(ones(n-1,1),1) );
  18. };
  19.